1 REM SPEED ADJUSTMENT PROGRAM 3 REM 5 REM 7 REM 10 POKE 53281,1:POKE53280,1:PRINTCHR$(30) 20 PRINTCHR$(147) 30 OPEN1,8,15 40 PRINT" "CHR$(18)"SPEED ADJUSTMENT PROGRAM" 50 PRINT 60 PRINTTAB(9)"PLEASE WAIT" 70 FORI=.TO161 80 READ A:S=S+A 90 PRINT#1,"M-W";CHR$(I)CHR$(3);CHR$(1)CHR$(A) 100 NEXTI 110 IF S<>15669 THEN PRINT"ERROR IN DATA":GOTO 480 120 PRINT 130 PRINT 140 PRINTTAB(4)"PLEASE INSERT A BLANK FORMATTED " 150 PRINT 160 PRINTTAB(10)"DISKETTE" 180 PRINT 190 PRINT 200 PRINTTAB(4)"WHEN READY TO START PRESS "CHR$(18)"SPACE"CHR$(146) 210 GETA$:IFA$<>CHR$(32)THEN 210 220 PRINTCHR$(19) 230 FOR I=.TO 5:PRINTCHR$(17):NEXT I 240 PRINT 250 PRINT 260 PRINT 270 PRINT 280 PRINT 290 PRINT"PRESS "CHR$(18)"F7"CHR$(146)" WHEN SPEED IS O.K." 295 GOSUB 560 300 FORI=.TO2:PRINTCHR$(145);:NEXT 310 PRINT#1,"M-W"CHR$(5)CHR$(3)CHR$(1)CHR$(11) 320 T=36:J=14:GOSUB 570 330 FORI=1 TO 4 340 PRINT#1,"M-R"CHR$(6+I)CHR$(3):GET#1,B$ 350 S(I)=ASC(B$+CHR$(.)) 360 NEXT I 370 IF S(3)=0 OR S(4)=0 THEN 500 380 C=256*(S(4)+S(3))+S(2)+S(1)-3996 390 C=INT(C/20+0.5) 400 PRINTCHR$(145)"DISK DRIVE SPEED IS "C"MS " 410 GETA$:IFA$=CHR$(136)THEN 450 420 IF ABS(C)>5 THEN 310 430 PRINT#1,"M-W"CHR$(5)CHR$(3)CHR$(1)CHR$(78) 440 GOTO 320 450 PRINTCHR$(17)CHR$(17)CHR$(17) 460 PRINT"O.K." 470 GOSUB 560 480 CLOSE1 490 END 500 PRINT 510 PRINTCHR$(18)"ERROR !!->" 520 PRINT"CHECK YOUR DISK!!! " 530 FORI=1TO1000:NEXTI 540 GOTO 470 550 REM 560 T=1:J=1 570 PRINT#1,"M-W"CHR$(6)CHR$(0)CHR$(2)CHR$(T)CHR$(0) 580 PRINT#1,"M-W"CHR$(0)CHR$(0)CHR$(1)CHR$(J*16) 590 PRINT#1,"M-R"CHR$(0)CHR$(0):GET#1,L$:L=ASC(L$+CHR$(0)):IFL>127THEN 590 600 IF J=12 THEN FORI=1TO2500:NEXT 610 RETURN 620 REM 630 DATA 169,0,133,0,76,11,3,0 640 DATA 0,0,0,120,173,12,28,41 650 DATA 31,9,192,141,12,28,169,255 660 DATA 141,3,28,162,85,142,1,28 670 DATA 162,50,160,0,80,254,184,136 680 DATA 208,250,202,208,247,80,254,184 690 DATA 141,1,28,169,224,13,12,28 700 DATA 162,4,80,254,184,202,208,250 710 DATA 141,12,28,142,3,28,162,3 720 DATA 80,254,184,202,208,250,120,173 730 DATA 11,24,9,64,141,11,24,162 740 DATA 1,169,98,141,4,24,160,0 750 DATA 140,8,3,140,10,3,140,7 760 DATA 3,140,9,3,44,0,28,48 770 DATA 251,140,5,24,44,0,28,16 780 DATA 251,44,0,28,16,19,173,13 790 DATA 24,10,16,245,173,4,24,254 800 DATA 7,3,208,237,254,9,3,208 810 DATA 232,202,240,224,169,191,45,11 820 DATA 24,141,11,24,169,1,88,108 830 DATA 232,255